home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_014_19xx_-_de_Side_B.d64
/
packer v2.3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
45 lines
0 x=40:rem if you 1-mhz-diskdrive hangedup x must be 90 (normal40)
2 ifn=0thenopen1,8,15,"m-w"+chr$(x)
4 ifn=0thenprint#1,"m-w"chr$(106)+chr$(0)+chr$(1)+chr$(200):close1
6 ifn=0thenn=1:load"c100 c540",8,1
8 sys49920:poke53272,20
10 poke53280,0:poke53281,0:print"[155][147][156]freeware 1994 by marek roth. main menu:[155]"
12 fori=0to28:poke54272+i,0:next
20 dima$(2,25)
30 reada$(0,a):reada$(1,a):reada$(2,a):a=a+1:ifa$(0,a-1)<>"quit"then30
40 fori=0toa-1:print"[155]";:ifi=peek(53245)-1thenprint"";:l=i
45 ifpeek(53247)>0then70
50 printspc(20-len(a$(0,i))/2);a$(0,i):next
60 print"[158]programs with _ can you run from basic!
70 [158]49795
80 [139][194](53247)[178]0[167][153]"":[137]40
100 [151] 53269,0:[158]49792:[139]a$(0,l)[178]"quit"[167][158]64738
110 [159]1,8,7,""[170]a$(1,l)[170]"":[161]#1,z$:mt[178]st:[160]1:[139]mt[178]0[167]180
120 [153]"load insert "a$(2,l)" v2.3!
130 open1,8,15,"m-r"+chr$(28)+chr$(0)+chr$(1):get#1,z$:close1
140 ifz$=""then130
150 fori=0to2000:next
160 open1,8,15,"i":input#1,a:close1:ifa>0then150
170 goto110
180 restore:sys49856
200 poke646,peek(53280)
210 print"[147]l[207]"chr$(34);a$(1,l);chr$(34)",8
220 [153]"r(NULL)
230 poke198,2:poke631,13:poke632,13:end
1000 data"load construction kit_","de luxe kit v2*","construction kit"
1010 data"edit title where you select caves","titeleditor v2*,s","levelpacker"
1020 data"creat cavepacks","cavepacker v2*,s","levelpacker"
1030 data"write intro screen","introscreen*,s","levelpacker"
1040 data"make boulder dash game","lastpacker v2*,s","levelpacker"
1050 data"select language of construction kit_","select l. v2.3"
1052 data"construction kit"
1070 data"restart kit with old level_","old cave v2*","construction kit"
1080 data"pack files_","final comp*","construction kit"
1090 data"editor v2.3 anleitung_","anleitung*[151]","construction kit"
1100 data"editor v2.3 instruction_","instruction*[151]","construction kit"
1110 data"wie sich boulder dash entwickelt hat_","geschich*[151]","construction kit"
1120 data"minenfeld spielen_","minenfeld","construction kit"
1130 data"minenfeld anleitung_","anleitung minen*[154]","construction kit"
1140 data"welche titel gehen eine bestimmte zeit_","cd-t*[151]","construction kit"
9990 data"quit"," "," "